﻿Public Class Ventas_por_Dia
    Dim acceso As New acceso
    Private Sub Ventas_por_Dia_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        calculo_estadisticas()

    End Sub


    Private Sub calculo_estadisticas()
        Dim sql As String
        Dim tabla As New Data.DataTable
        sql = "Select * from VistaVentas_por_Dia"
 
        DS_Est_Ventas_Por_DiaBindingSource.DataSource = acceso.ejecutar(sql)
        ReportViewer1.RefreshReport()


    End Sub



End Class